home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / gnu / flex_247.zip / flex_247 / MISC / fastwc / wc5.l < prev   
Text File  |  1993-07-22  |  506b  |  25 lines
  1. /* Oops; slight change from wc3.l introduces backtracking */
  2.  
  3. ws    [ \t]
  4. nonws [^ \t\n]
  5. word  {ws}*{nonws}+
  6. words {word}{ws}+
  7.  
  8. %%
  9.     int cc = 0, wc = 0, lc = 0;
  10.  
  11. {word}{ws}*        cc += yyleng; ++wc;
  12. {word}{ws}*\n        cc += yyleng; ++wc; ++lc;
  13. {words}{word}        cc += yyleng; wc += 2;    /* oops */
  14. {words}{2}{word}{ws}*    cc += yyleng; wc += 3;
  15. {words}{3}{word}{ws}*    cc += yyleng; wc += 4;
  16.  
  17. {ws}+            cc += yyleng;
  18.  
  19. \n+            cc += yyleng; lc += yyleng;
  20.  
  21. <<EOF>>        {
  22.         printf( "%8d %8d %8d\n", lc, wc, cc );
  23.         yyterminate();
  24.         }
  25.